home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / home / willrt / util.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-03-22  |  312 b   |  14 lines
  1. 100  REM UTIL 3/22/86
  2. 120  CLS:V=10:H=5:GOSUB 4800:PRINT "PLEASE WAIT...DISK DRIVE IN USE"
  3. 130  OPEN "WD" FOR OUTPUT AS #1
  4. 140  SN$ = ""
  5. 150  FI%= -1:WRITE #1,FI%
  6. 151  FI% = 0:WRITE #1,FI%:WRITE #1,FI%:WRITE #1,FI%:WRITE #1,SN$:WRITE #1,FI%
  7. 152  WRITE #1,FI%:REM STATE THINGS
  8. 160  NV%=33
  9. 170  FOR I=1 TO NV%:WRITE #1,"":NEXT I
  10. 172  PF=0:PRINT #1,PF
  11. 180  CLOSE #1
  12. 250  RUN "WW
  13. 4800  LOCATE V,H:RETURN
  14.